home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b3.d64 / program29 < prev    next >
Text File  |  2007-02-28  |  493b  |  24 lines
  1. 0010 // PROGRAM 29
  2. 0020 //
  3. 0030 // COMELY KATE
  4. 0040 //
  5. 0050 // TO OUTPUT MONTHS OF A SEASON
  6. 0060 //
  7. 0070 DIM SEASON$ OF 6
  8. 0080 PRINT 
  9. 0090 INPUT "WHAT SEASON ? ": SEASON$
  10. 0100 PRINT 
  11. 0110 CASE SEASON$ OF
  12. 0120 WHEN "WINTER"
  13. 0130 PRINT "NOVEMBER,DECEMBER,JANUARY"
  14. 0140 WHEN "SUMMER"
  15. 0150 PRINT "MAY,JUNE,JULY"
  16. 0160 WHEN "SPRING"
  17. 0170 PRINT "FEBRUARY,MARCH,APRIL"
  18. 0180 WHEN "AUTUMN"
  19. 0190 PRINT "AUGUST,SEPTEMBER,OCTOBER"
  20. 0200 OTHERWISE 
  21. 0210 PRINT "SORRY! NO SUCH SEASON"
  22. 0220 ENDCASE 
  23. 0230 END 
  24.